home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-3139 / spec512.s / showspec.s < prev   
Text File  |  1992-02-11  |  3KB  |  285 lines
  1. ;
  2. ; Spectrum 512 displayer (at 50Hz).
  3. ;
  4.  
  5.     clr.l    -(sp)
  6.     move.w    #$20,-(sp)
  7.     trap    #1
  8.     addq.l    #6,sp
  9.     move.l    d0,oldsp
  10.     
  11.     move.b    $ff8201,scrnpos+1
  12.     move.b    $ff8203,scrnpos+2
  13.     
  14.     move.w    #37,-(sp)
  15.     trap    #14
  16.     addq.l    #2,sp
  17.     move.b    #0,$ff8260
  18.     
  19.     lea    pic(pc),a0
  20.     move.l    scrnpos(pc),a1
  21.     move.w    #1999,d0
  22. copy:    move.l    (a0)+,(a1)+
  23.     move.l    (a0)+,(a1)+
  24.     move.l    (a0)+,(a1)+
  25.     move.l    (a0)+,(a1)+
  26.     dbra    d0,copy
  27.     
  28.     move.l    #vbl,$4d2
  29.     
  30.     move.w    #1,-(sp)
  31.     trap    #1
  32.     addq.l    #2,sp
  33.     
  34.     clr.l    $4d2
  35.     
  36. *    clr.w    $ff8240
  37.     
  38.     move.l    oldsp(pc),-(sp)
  39.     move.w    #$20,-(sp)
  40.     trap    #1
  41.     addq.l    #6,sp
  42.  
  43.     clr.w    -(sp)
  44.     trap    #1
  45.  
  46.  
  47. vbl:    TST.W    $43E
  48.     BNE    evbl
  49.     MOVE    SR,-(A7)
  50.     ORI.W    #$700,SR
  51.     LEA    $FF8240,A4
  52.     LEA    $FF8209,A5
  53.     LEA    (A4),A0
  54.     LEA    (A4),A1
  55.     LEA    (A4),A2
  56.     LEA    noplist(PC),A6
  57.     LEA    pic+32000+32,A3
  58.     MOVE.W    #$C4,D7
  59.     CLR.L    D0
  60. waits:    TST.B    (A5)
  61.     BEQ.S    waits
  62.     MOVE.B    (A5),D0
  63.     ADDA.L    D0,A6
  64.     JMP    (A6)
  65. noplist:NOP
  66.     NOP
  67.     NOP
  68.     NOP
  69.     NOP
  70.     NOP
  71.     NOP
  72.     NOP
  73.     NOP
  74.     NOP
  75.     NOP
  76.     NOP
  77.     NOP
  78.     NOP
  79.     NOP
  80.     NOP
  81.     NOP
  82.     NOP
  83.     NOP
  84.     NOP
  85.     NOP
  86.     NOP
  87.     NOP
  88.     NOP
  89.     NOP
  90.     NOP
  91.     NOP
  92.     NOP
  93.     NOP
  94.     NOP
  95.     NOP
  96.     NOP
  97.     NOP
  98.     NOP
  99.     NOP
  100.     NOP
  101.     NOP
  102.     NOP
  103.     NOP
  104.     NOP
  105.     NOP
  106.     NOP
  107.     NOP
  108.     NOP
  109.     NOP
  110.     NOP
  111.     NOP
  112.     NOP
  113.     NOP
  114.     NOP
  115.     NOP
  116.     NOP
  117.     NOP
  118.     NOP
  119.     NOP
  120.     NOP
  121.     NOP
  122.     NOP
  123.     NOP
  124.     NOP
  125.     NOP
  126.     NOP
  127.     NOP
  128.     NOP
  129.     NOP
  130.     NOP
  131.     NOP
  132.     NOP
  133.     NOP
  134.     NOP
  135.     NOP
  136.     NOP
  137.     NOP
  138.     NOP
  139.     NOP
  140.     NOP
  141.     NOP
  142.     NOP
  143.     NOP
  144.     NOP
  145.     NOP
  146.     NOP
  147.     NOP
  148.     NOP
  149.     NOP
  150.     NOP
  151.     NOP
  152.     NOP
  153.     NOP
  154.     NOP
  155.     NOP
  156.     NOP
  157.     NOP
  158.     NOP
  159.     NOP
  160.     NOP
  161.     NOP
  162.     NOP
  163.     NOP
  164.     NOP
  165.     NOP
  166.     NOP
  167.     NOP
  168.     NOP
  169.     NOP
  170.     NOP
  171.     NOP
  172.     NOP
  173.     NOP
  174.     NOP
  175.     NOP
  176.     NOP
  177.     NOP
  178.     NOP
  179.     NOP
  180.     NOP
  181.     NOP
  182.     NOP
  183.     NOP
  184.     NOP
  185.     NOP
  186.     NOP
  187. dopal:    LEA    (A4),A0
  188.     LEA    (A4),A1
  189.     LEA    (A4),A2
  190.     MOVE.L    (A3)+,(A0)+
  191.     MOVE.L    (A3)+,(A0)+
  192.     MOVE.L    (A3)+,(A0)+
  193.     MOVE.L    (A3)+,(A0)+
  194.     MOVE.L    (A3)+,(A0)+
  195.     MOVE.L    (A3)+,(A0)+
  196.     MOVE.L    (A3)+,(A0)+
  197.     MOVE.L    (A3)+,(A0)+
  198.     MOVE.L    (A3)+,(A1)+
  199.     MOVE.L    (A3)+,(A1)+
  200.     MOVE.L    (A3)+,(A1)+
  201.     MOVE.L    (A3)+,(A1)+
  202.     MOVE.L    (A3)+,(A1)+
  203.     MOVE.L    (A3)+,(A1)+
  204.     MOVE.L    (A3)+,(A1)+
  205.     MOVE.L    (A3)+,(A1)+
  206.     MOVE.L    (A3)+,(A2)+
  207.     MOVE.L    (A3)+,(A2)+
  208.     MOVE.L    (A3)+,(A2)+
  209.     MOVE.L    (A3)+,(A2)+
  210.     MOVE.L    (A3)+,(A2)+
  211.     MOVE.L    (A3)+,(A2)+
  212.     MOVE.L    (A3)+,(A2)+
  213.     MOVE.L    (A3)+,(A2)+
  214.     nop
  215.     nop
  216.     DBF    D7,dopal
  217.     NOP
  218.     LEA    (A4),A0
  219.     LEA    (A4),A1
  220.     LEA    (A4),A2
  221.     MOVE.L    (A3)+,(A0)+
  222.     MOVE.L    (A3)+,(A0)+
  223.     MOVE.L    (A3)+,(A0)+
  224.     MOVE.L    (A3)+,(A0)+
  225.     MOVE.L    (A3)+,(A0)+
  226.     MOVE.L    (A3)+,(A0)+
  227.     MOVE.L    (A3)+,(A0)+
  228.     MOVE.L    (A3)+,(A0)+
  229.     MOVE.L    (A3)+,(A1)+
  230.     MOVE.L    (A3)+,(A1)+
  231.     MOVE.L    (A3)+,(A1)+
  232.     MOVE.L    (A3)+,(A1)+
  233.     MOVE.L    (A3)+,(A1)+
  234.     MOVE.L    (A3)+,(A1)+
  235.     MOVE.L    (A3)+,(A1)+
  236.     MOVE.L    (A3)+,(A1)+
  237.     MOVE.L    (A3)+,(A2)+
  238.     MOVE.L    (A3)+,(A2)+
  239.     MOVE.L    (A3)+,(A2)+
  240.     MOVE.L    (A3)+,(A2)+
  241.     MOVE.L    (A3)+,(A2)+
  242.     MOVE.L    (A3)+,(A2)+
  243.     MOVE.L    (A3)+,(A2)+
  244.     MOVE.L    (A3)+,(A2)+
  245.     LEA    (A4),A0
  246.     LEA    (A4),A1
  247.     LEA    (A4),A2
  248.     LEA    -$4A60(A3),A4
  249.     NOP
  250.     NOP
  251.     NOP
  252.     MOVE.L    (A3)+,(A0)+
  253.     MOVE.L    (A3)+,(A0)+
  254.     MOVE.L    (A3)+,(A0)+
  255.     MOVE.L    (A3)+,(A0)+
  256.     MOVE.L    (A3)+,(A0)+
  257.     MOVE.L    (A3)+,(A0)+
  258.     MOVE.L    (A3)+,(A0)+
  259.     MOVE.L    (A3)+,(A0)+
  260.     MOVE.L    (A3)+,(A1)+
  261.     MOVE.L    (A3)+,(A1)+
  262.     MOVE.L    (A3)+,(A1)+
  263.     MOVE.L    (A3)+,(A1)+
  264.     MOVE.L    (A3)+,(A1)+
  265.     MOVE.L    (A3)+,(A1)+
  266.     MOVE.L    (A3)+,(A1)+
  267.     MOVE.L    (A3)+,(A1)+
  268.     MOVE.L    (A4)+,(A2)+
  269.     MOVE.L    (A4)+,(A2)+
  270.     MOVE.L    (A4)+,(A2)+
  271.     MOVE.L    (A4)+,(A2)+
  272.     MOVE.L    (A4)+,(A2)+
  273.     MOVE.L    (A4)+,(A2)+
  274.     MOVE.L    (A4)+,(A2)+
  275.     MOVE.L    (A4)+,(A2)+
  276.     MOVE.W    (A7)+,SR
  277. evbl:    RTS
  278.  
  279.  
  280. oldsp:    even
  281.     ds.l    1
  282. scrnpos:even
  283.     ds.l    1
  284. pic:    even
  285.     incbin    speccy.spu